home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / meetpearlsupd.lha / Meeting_Pearls_Update / clickme.first next >
Encoding:
Text File  |  1995-02-03  |  33.5 KB  |  1,030 lines

  1. ; Dies ist das Install-Programm für die Meeting Pearls Volume 1
  2. ; Es ist Copyright (C) 1994 by Angela Schmidt, Neu-Ulm, Germany und
  3. ; darf AUSSCHLIESSLICH in Verbindung mit der Meeting Pearls CD oder
  4. ; privat benutzt werden! Weitergehende Nutzung, insbesondere Nutzung
  5. ; auf anderen CD-ROMs, ist NICHT gestattet!
  6. ; Es ist NICHT gestattet, geänderte Versionen dieses Skripts in
  7. ; irgendeiner Art zu verbreiten!
  8. ; Für Sondergenehmigungen setzen Sie sich bitte mit
  9. ;    Angela Schmidt
  10. ;    Klosterweg 28/I501
  11. ;    D-76131 Karlsruhe
  12. ;    Germany
  13. ; in Verbindung!
  14.  
  15. (set osversion (/ (getversion) 65536))
  16.  
  17. (if (<= osversion 34)
  18.     (
  19.         (set oldlevel @user-level)
  20.         (user 2)
  21.     )
  22. )
  23.  
  24. (set langnum
  25.     (askchoice
  26.         (prompt "")
  27.         (help @askchoice-help)
  28.         (choices
  29.             "Deutsch"
  30.             "English"
  31. ;            "Français"
  32.         )
  33.         (default
  34.             (if (patmatch @language "Deutsch")
  35.                 0
  36.                 (if (patmatch @language "English")
  37.                     1
  38. ;                    (if (patmatch @language "Français")
  39. ;                        2
  40. ;                        0
  41. ;                    )
  42.                     0
  43.                 )
  44.             )
  45.         )
  46.     )
  47. )
  48.  
  49. (if (<= osversion 34)
  50.     (user oldlevel)
  51. )
  52.  
  53. (if (= langnum 0) (set langstring "Deutsch"))
  54. (if (= langnum 1) (set langstring "English"))
  55. (if (= langnum 2) (set langstring "Français"))
  56.  
  57. ; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
  58. ; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
  59. ; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
  60. ; sollten unverändert bleiben! Wer irgendwo eine Zeile hinzufügen oder
  61. ; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
  62. ; jede Zeile steht ein "%s".
  63.  
  64. (if (patmatch langstring "Deutsch")
  65.     (
  66.         (set warning_old_os
  67.             (
  68.                 "%s%s%s"
  69.                 "Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand, denn ansonsten haben Sie mit Problemen zu rechnen! "
  70.                 "Diese CD läuft zwar prinzipiell auch unter Kickstart 1.2/1.3, aber mit dem Anzeigen von Bildern und einigen anderen Dingen werden Sie Ihre "
  71.                 "Probleme haben. Wählen Sie bitte die Hilfe-Seite für nähere Infos!"
  72.             )
  73.         )
  74.         (set warning_old_os_help_1
  75.             (
  76.                 "%s%s%s"
  77.                 "Leider, leider haben wir kein Bildanzeigeprogramm gefunden, das unter Kickstart 1.2/1.3 läuft und das alle wichtigen Bild-Formate (ILBM, GIF, JPEG) anzeigen kann. "
  78.                 "Das wird Ihnen das Anschauen unserer wirklich sehenswerten Bilder bedauerlicherweise nicht sehr komfortabel machen. "
  79.                 "Zunächst sollten Sie in jedem Fall im \"Expert-\" oder \"Intermediate-Mode\" dieses Install-Skripts das von Ihnen bevorzugte Bildanzeigeprogramm "
  80.             )
  81.         )
  82.         (set warning_old_os_help_2
  83.             (
  84.                 "%s%s%s%s"
  85.                 "auswählen. Sie müssen aber selber sicherstellen, daß dieses Programm das jeweilige Bildformat anzeigen kann!!! "
  86.                 "Für die Fraktale brauchen Sie zum Beispiel ein Programm, das GIF-Bilder anzeigen kann "
  87.                 "und für die Meeting-Bilder eines, welches JPEGs anzeigt. In der Regel erkennen Sie JPEG-Bilder "
  88.                 "an der Endung \".jpg\" und GIF-Bilder an der Endung \".gif\"."
  89.             )
  90.         )
  91.         (set no_std_textreader
  92.             ("%s%s%s%s%s"
  93.                 "Hoppla!\n\n"
  94.                 "Auf diesem System existiert \""
  95.                 (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More"))
  96.                 "\" nicht!\n\n"
  97.                 "Unter diesen Umständen muß ich mich leider verabschieden!"
  98.             )
  99.         )
  100.         (set no_std_pictureviewer
  101.             ("%s%s%s%s%s"
  102.                 "Hoppla!\n\n"
  103.                 "Auf diesem System existiert \""
  104.                 (expandpath ":C/VT")
  105.                 "\" nicht!\n\n"
  106.                 "Unter diesen Umständen muß ich mich leider verabschieden!"
  107.             )
  108.         )
  109.         (set intro_msg
  110.             ("%s%s"
  111.                 "Dies ist das Installier-Skript für die Meeting Pearls CD!\n\n"
  112.                 "Wenn Sie dieses Skript das erste Mal starten, wählen Sie bitte JETZT die Hilfe-Seite!\n\n"
  113.             )
  114.         )
  115.         (set intro_help_1
  116.             ("%s%s%s%s%s%s%s%s%s"
  117.                 "Im Laufe der Installation werden Sie zwischen verschiedenen Text- und "
  118.                 "Bildanzeigeprogrammen wählen können. Wenn ein derartiges Anzeigeprogramm "
  119.                 "eingeklammert dargestellt wird, so konnte es auf Ihrem System nicht gefunden "
  120.                 "werden und Sie sollten es deshalb nicht anwählen. Falls Sie es trotzdem "
  121.                 "wählen, wird das voreingestellte Anzeigeprogramm benutzt, also entweder \""
  122.                 (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  123.                 "\" oder \""
  124.                 (expandpath ":C/VT")
  125.                 "\".\n\n"
  126.             )
  127.         )
  128.         (set intro_help_2
  129.             ("%s%s%s%s"
  130.                 "Diese Installation aktiviert dann ein paar Assigns, damit Sie Ihr "
  131.                 "Lieblings-Textanzeigeprogramm sowie Ihr Lieblings-Bildanzeigeprogramm "
  132.                 "benutzen können! Auf Wunsch werden diese Assigns auch in Ihre User-Startup "
  133.                 "aufgenommen.\n\n"
  134.             )
  135.         )
  136.         (set intro_help_3
  137.             ("%s%s%s%s%s"
  138.                 "Des weiteren können Sie mit diesem Installier-Programm Verzeichnisse, "
  139.                 "die auf dieser CD enthalten sind, auf einen anderen Datenträger kopieren "
  140.                 "und dabei gleichzeitig automatisch die DefaultTools der enthaltenen Dateien"
  141.                 (if (>= osversion 37)
  142.                     ", sowie die Protectionflags und Kommentare, die durch das ISO-Filesystem leider verlorengegangen sind, "
  143.                     " "
  144.                 )
  145.                 "wieder anpassen lassen!\n\n"
  146.             )
  147.         )
  148.         (set intro_help_4
  149.             ("%s%s%s%s%s%s"
  150.                 "Wenn Sie Verzeichnisse auf Ihre Festplatte kopieren möchten, so wird "
  151.                 "DRINGEND empfohlen, Anzeigeprogramme auszuwählen, die auf Ihrer "
  152.                 "Festplatte liegen! Wenn Sie diesen Tip nicht beherzigen, werden Sie - "
  153.                 "wann immer Sie eine installierte \"Readme-Datei\" anklicken - die "
  154.                 (expandpath ":")
  155.                 " CD einlegen müssen.\n\n"
  156.             )
  157.         )
  158.         (set intro_help_5
  159.             ("%s%s"
  160.                 "Falls Sie jedoch vorerst noch nichts auf Ihre Festplatte kopieren "
  161.                 "möchten, können Sie guten Gewissens die voreingestellten Programme wählen."
  162.             )
  163.         )
  164.         (set others_msg
  165.             "Andere..."
  166.         )
  167.         (set choose_textreader_msg
  168.             ("%s%s%s"
  169.                 "Bitte wählen Sie das Textanzeigeprogramm, das Sie bevorzugen!\n\nEingeklammerte Textanzeigeprogramme sind auf Ihrem System nicht vorhanden und werden durch \""
  170.                 (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  171.                 "\" ersetzt!"
  172.             )
  173.         )
  174.         (set choose_textreader_msg_help
  175.             ("%s%s%s%s"
  176.                 "Dieses Textanzeigeprogramm wird zum Anzeigen der auf der CD enthaltenen Texte "
  177.                 "verwendet. Wenn Sie später mit Hilfe dieses Skripts auf der CD enthaltene Verzeichnisse "
  178.                 "auf Ihre Festplatte kopieren, wird dieses Textanzeigeprogramm sogar automatisch als "
  179.                 "Default Tool in den entsprechenden Icons eingestellt!\n\n"
  180.             )
  181.         )
  182.         (set pick_textreader_per_filereq
  183.             "Ok, bitte wählen Sie ihr bevorzugtes Textanzeigeprogramm!"
  184.         )
  185.         (set choose_picviewer_msg
  186.             ("%s%s%s%s%s%s"
  187.                 "Bitte wählen Sie das Bildanzeigeprogramm, das Sie bevorzugen! "
  188.                 "Eingeklammerte Bildanzeigeprogramme sind auf Ihrem System nicht vorhanden und werden durch \""
  189.                 "MP_Vol1:C/VT"
  190.                 "\" ersetzt! \"MP_Vol1:\" ist übrigens nur eine kürzere Schreibweise für \""
  191.                 (expandpath ":")
  192.                 "\"."
  193.             )
  194.         )
  195.         (set choose_picviewer_msg_help
  196.             ("%s%s%s%s"
  197.                 "Dieses Bildanzeigeprogramm wird zum Anzeigen der auf der CD enthaltenen Bilder "
  198.                 "verwendet. Wenn Sie später mit Hilfe dieses Skripts auf der CD enthaltene Verzeichnisse "
  199.                 "auf Ihre Festplatte kopieren, wird dieses Bildanzeigeprogramm sogar automatisch als "
  200.                 "Default Tool in den entsprechenden Icons eingestellt!\n\n"
  201.             )
  202.         )
  203.         (set pick_picviewer_per_filereq
  204.             "Ok, bitte wählen Sie ihr bevorzugtes Bildanzeigeprogramm!"
  205.         )
  206.         (set wanna_copy_dirs_to_hd
  207.             ("%s%s%s%s%s"
  208.                 "Wollen Sie nun gleich noch ein paar Verzeichnisse auf Ihre Festplatte kopieren? "
  209.                 "Das Interessante daran ist, daß dieses Skript dann automatisch die DefaultTools auf "
  210.                 "die von Ihnen eingestellten Anzeigeprogramme ändert! Sinnigerweise sollten Sie dann "
  211.                 "aber keine Anzeigeprogramme eingestellt haben, die auf der CD liegen..."
  212.                 (if (>= osversion 37)
  213.                     " Außerdem werden sämtliche Protectionflags und Kommentare, die durch das ISO-Dateisystem leider verlorengegangen sind, im Zielverzeichnis wieder restauriert."
  214.                     ""
  215.                 )
  216.             )
  217.         )
  218.         (set wanna_copy_yes_or_no
  219.             "Klicken Sie auf \"Ja\", wenn Sie Programme auf Ihre Festplatte kopieren wollen, andernfalls auf \"Nein\"."
  220.         )
  221.         (set ja_antwort
  222.             "Ja"
  223.         )
  224.         (set nein_antwort
  225.             "Nein"
  226.         )
  227.         (set hoppla_reader_on_cd
  228.             ("%s%s%s%s"
  229.                 "Hoppla! Das von Ihnen gewählte Text-Anzeigeprogramm liegt auf der CD! "
  230.                 "Beachten Sie, daß Sie die CD dann in Zukunft immer einlegen müssen, "
  231.                 "wenn Sie Texte lesen wollen, die in der Schublade liegen, die Sie kopieren wollen! "
  232.                 "Optional können Sie die Installation natürlich jetzt auch abbrechen."
  233.             )
  234.         )
  235.         (set hoppla_viewer_on_cd
  236.             ("%s%s%s%s"
  237.                 "Hoppla! Das von Ihnen gewählte Bild-Anzeigeprogramm liegt auf der CD! "
  238.                 "Beachten Sie, daß Sie die CD dann in Zukunft immer einlegen müssen, "
  239.                 "wenn Sie Bilder anschauen wollen, die in der Schublade liegen, die Sie kopieren wollen! "
  240.                 "Optional können Sie die Installation natürlich jetzt auch abbrechen."
  241.             )
  242.         )
  243.         (set choose_dir_to_copy_from
  244.             "Bitte wählen Sie das Verzeichnis, das Sie von CD auf ihre Festplatte kopieren möchten!"
  245.         )
  246.         (set choose_dir_to_copy_to
  247.             "Bitte wählen Sie ein Verzeichnis auf Ihrer Festplatte, in das Sie das von der CD gewählte Verzeichnis kopieren möchten!"
  248.         )
  249.         (set ready_to_copy
  250.             "Sind Sie bereit, das Verzeichnis \"%s\" ins Verzeichnis \"%s\" zu kopieren?"
  251.         )
  252.         (set ready_to_copy_help
  253.             "Es wird im Verzeichnis \"%s\" dann ein neues Verzeichnis mit dem Namen \"%s\" eingerichtet!"
  254.         )
  255.         (set ready_to_copy_1
  256.             "Sind Sie bereit, das Verzeichnis \""
  257.         )
  258.         (set ready_to_copy_2
  259.             "\" ins Verzeichnis \""
  260.         )
  261.         (set ready_to_copy_3
  262.             "\" zu kopieren?"
  263.         )
  264.         (set replacing_defaulttools
  265.             "Es werden einige Defaulttools - falls vorhanden - angepaßt!"
  266.         )
  267.         (set restoring_flags
  268.             "Es werden die originalen Protectionflags und Kommentare, die auf der CD verlorengegangen sind, wieder hergestellt!"
  269.         )
  270.         (set copy_more_dirs
  271.             "Möchten Sie noch mehr Verzeichnisse kopieren?"
  272.         )
  273.         (set copy_more_dirs_help
  274.             "Wenn Sie noch mehr Verzeichnisse kopieren möchten, dann wählen Sie nun \"Ja\", ansonsten \"Nein\""
  275.         )
  276.         (set save_display_programs
  277.             "Sollen die Anzeigeprogramme dauerhaft eingestellt werden, so daß sie auch einen Reset überleben?"
  278.         )
  279.         (set save_display_programs_help
  280.             ("%s%s%s"
  281.                 "Wenn Sie nun \"Ja\" wählen, werden die Anzeigeprogramme in Form von Assigns in Ihre "
  282.                 "S:user-startup eingetragen. Falls die von Ihnen gewählten Programme auf der CD liegen, "
  283.                 "rate ich davon ab!"
  284.             )
  285.         )
  286.         (set add_assigns_to_userstartup
  287.             ("%s%s%s%s"
  288.                 "Die Assigns werden nun an Ihre Datei \"S:user-startup\" angehängt, damit Sie in "
  289.                 "Zukunft bei Benutzung dieser CD den Installer nicht jedes Mal neu rufen müssen! "
  290.                 "Wenn Sie dies nicht wünschen, ist dies die letzte Möglichkeit, diesen Punkt durch "
  291.                 "Betätigung des richtigen Gadgets zu überspringen."
  292.             )
  293.         )
  294.         (set add_assigns_to_userstartup_help
  295.             ("%s%s"
  296.                 "Folgende Assigns werden hinzugefügt: "
  297.                 (if (>= osversion 37)
  298.                     ("Assign MP_READER: %s DEFER\nAssign MP_VIEWER: %s DEFER" mp_reader mp_viewer)
  299.                     ("Assign MP_READER: %s\nAssign MP_VIEWER: %s" mp_reader mp_viewer)
  300.                 )
  301.             )
  302.         )
  303.         (set wanna_copy_to_envarc
  304.             ("%s%s%s"
  305.                 "Wollen Sie einige Umgebungsvariablen nach ENVARC: kopieren? "
  306.                 "Dieses Install-Skript macht Gebrauch von diesen Variablen, falls "
  307.                 "sie existieren und läuft dann deutlich komfortabler."
  308.             )
  309.         )
  310.         (set wanna_copy_to_envarc_help
  311.             ("%s%s%s%s%s"
  312.                 "Wenn Sie die Umgebungsvariablen nicht kopieren, wird dieses "
  313.                 "Install-Skript nach einem Reset Ihre bereits getroffenen "
  314.                 "Entscheidungen nicht mehr kennen und daher nicht mehr voreinstellen "
  315.                 "können. Andrerseits verlängert das Kopieren die Bootzeit ein "
  316.                 "klitzekleinwenig..."
  317.             )
  318.         )
  319.         (set activate_more_assigns
  320.             ("%s%s%s%s"
  321.                 "Sollen noch ein paar weitere Assigns hinzugefügt werden, damit einige "
  322.                 "auf der CD installierte Programme direkt startbar werden? (Diese Assigns "
  323.                 "werden nicht in S:user-startup eingefügt - nach dem Booten merken Sie also "
  324.                 "nicht mehr davon!)"
  325.             )
  326.         )
  327.         (set activate_more_assigns_help
  328.             ("%s%s"
  329.                 "Ich empfehle Ihnen \"Ja\" - es kann nichts kaputtgehen und spätestens "
  330.                 "nach einem Reset ist alles wieder beim Alten!"
  331.             )
  332.         )
  333.     )
  334. )
  335. (if (patmatch langstring "English")
  336.     ; thanx to Martin Kopp for translation!
  337.     ; some later additions from Angela Schmidt
  338.     (
  339.         (set warning_old_os
  340.             (
  341.                 "%s%s%s"
  342.                 "Please update the operating system, because otherwise there will be some problems using this CD. "
  343.                 "In principle this CD is still usable under Kickstart 1.2/1.3, BUT you will find it difficult to view all pictures and several other things will not work either. "
  344.                 "For further information you should select the help-page now!"
  345.             )
  346.         )
  347.         (set warning_old_os_help_1
  348.             (
  349.                 "%s%s%s"
  350.                 "We are sorry about that, but we could not find an Kickstart 1.2/1.3 picture viewing program that is capable of showing all the major picture formats (ILBM, GIF, JPEG). "
  351.                 "Therefore you will unfortunately have to resort to a severly less comfortable way of viewing the pictures that are really worth seeing. "
  352.                 "We propose that you use the \"Expert mode\" or \"Intermediate mode\" of this installer script to choose your preferred picture viewing program. "
  353.             )
  354.         )
  355.         (set warning_old_os_help_2
  356.             (
  357.                 "%s%s%s%s"
  358.                 "You have to make sure that this program can show the respective picture format!!! "
  359.                 "To view the fractals you have for example to choose a program that can show you GIF pictures and "
  360.                 "for the meeting pictures one that can display JPEG files. Generally you can recognize JPEG pictures "
  361.                 "by the ending \".jpg\" and GIF pictures by the ending \".gif\"."
  362.             )
  363.         )
  364.         (set no_std_textreader
  365.             ("%s%s%s%s%s"
  366.                 "Oh No!!!\n\n"
  367.                 "There is no \""
  368.                 (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More"))
  369.                 "\" on this system!\n\n"
  370.                 "I'm sorry! But this is not tolerable. I'm leaving!"
  371.             )
  372.         )
  373.         (set no_std_pictureviewer
  374.             ("%s%s%s%s%s"
  375.                 "Oh No!!!\n\n"
  376.                 "There is no \""
  377.                 (expandpath ":C/VT")
  378.                 "\" on this system!\n\n"
  379.                 "I'm sorry! But this is not tolerable. I'm leaving!"
  380.             )
  381.         )
  382.         (set intro_msg
  383.             ("%s%s"
  384.                 "This is the Installer script for the Meeting Pearls CD!\n\n"
  385.                 "If you start this script for the first time, please choose the Help-page NOW!\n\n"
  386.             )
  387.         )
  388.         (set intro_help_1
  389.             ("%s%s%s%s%s%s%s%s%s"
  390.                 "During the process of installation you will be able to choose among "
  391.                 "several text and picture viewing programs. If one of these programs "
  392.                 "is shown in braces, it could not be located on your system and you "
  393.                 "should therefore not select it. If you insist on selecting it, one "
  394.                 "of the following defaults will be used instead \""
  395.                 (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  396.                 "\" or \""
  397.                 (expandpath ":C/VT")
  398.                 "\".\n\n"
  399.             )
  400.         )
  401.         (set intro_help_2
  402.             ("%s%s%s%s"
  403.                 "This installation will then establish some Assigns, that allow you "
  404.                 "to use your preferred text viewing program and picture viewing program. "
  405.                 "If you want it so, these Assigns can be incorporated into your user-"
  406.                 "startup script.\n\n"
  407.             )
  408.         )
  409.         (set intro_help_3
  410.             ("%s%s%s%s%s"
  411.                 "As an additional feature of this install script you can copy drawers "
  412.                 "that are part of this CD onto another storage medium (disk, hard disk etc.) "
  413.                 "and have the default tools of the files in question "
  414.                 (if (>= osversion 37)
  415.                     "and their protection flags and comments, which have been lost through the ISO-Filesystem, "
  416.                     ""
  417.                 )
  418.                 "automagically changed!\n\n"
  419.             )
  420.         )
  421.         (set intro_help_4
  422.             ("%s%s%s%s%s%s"
  423.                 "If you want to copy drawers to your hard disk you are URGENTLY advised "
  424.                 "to choose viewer programs that are located on your hard disk!!! "
  425.                 "If you do not adhere to this rule you must be prepared - every time "
  426.                 "you select an installed \"Readme-file\" - to insert the "
  427.                 (expandpath ":")
  428.                 "-CD into your CD-ROM drive.\n\n"
  429.             )
  430.         )
  431.         (set intro_help_5
  432.             ("%s%s"
  433.                 "If you do not plan to copy anything to your hard disk at the moment you "
  434.                 "may safely select the default programs."
  435.             )
  436.         )
  437.         (set others_msg
  438.             "Other..."
  439.         )
  440.         (set choose_textreader_msg
  441.             ("%s%s%s"
  442.                 "Please select the preferred text viewing program!\n\nText viewers that are enclosed in braces are not available on your system and will be substituted by the \""
  443.                 (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  444.                 "\" program!"
  445.             )
  446.         )
  447.         (set choose_textreader_msg_help
  448.             ("%s%s%s%s"
  449.                 "This text viewing program will be used to display the texts contained on the CD. "
  450.                 "If you later want to copy directories from this CD to your harddisk, "
  451.                 "this text viewing program even will automatically be installed as the "
  452.                 "default tool in the respective icons.\n\n"
  453.             )
  454.         )
  455.         (set pick_textreader_per_filereq
  456.             "Ok, please select the text viewing program you prefer!"
  457.         )
  458.         (set choose_picviewer_msg
  459.             ("%s%s%s%s%s%s"
  460.                 "Please select the preferred picture viewing program! "
  461.                 "Picture viewers that are enclosed in braces are not available on your system and will be substituted by the \""
  462.                 "MP_Vol1:C/VT"
  463.                 "\" program! \"MP_Vol1:\" is by the way only an abbreviation for \""
  464.                 (expandpath ":")
  465.                 "\"."
  466.             )
  467.         )
  468.         (set choose_picviewer_msg_help
  469.             ("%s%s%s%s"
  470.                 "This picture viewing program will be used to display the pictures contained on the CD. "
  471.                 "If you later want to copy directories from this CD to your harddisk, "
  472.                 "this picture viewing program even will automatically be installed as the "
  473.                 "default tool in the respective icons.\n\n"
  474.             )
  475.         )
  476.         (set pick_picviewer_per_filereq
  477.             "Ok, please select the picture viewing program you prefer!"
  478.         )
  479.         (set wanna_copy_dirs_to_hd
  480.             ("%s%s%s%s%s"
  481.                 "Do you want to copy some drawers to your hard disk right now? The interesting "
  482.                 "fact about this possibility is that this script - in contrast to any other method "
  483.                 "of copying - will automatically alter all the default tools to use your preselected "
  484.                 "viewer programs. It is advisable not to choose viewers that reside on the CD..."
  485.                 (if (>= osversion 37)
  486.                     " Furthermore all protectionflags and comments, which have been lost through the ISO-Filesystem, will be restored in the destination directory."
  487.                     ""
  488.                 )
  489.             )
  490.         )
  491.         (set wanna_copy_yes_or_no
  492.             "Select  \"Yes\", if you want to copy programs to your hard disk, otherwise select \"No\"."
  493.         )
  494.         (set ja_antwort
  495.             "Yes"
  496.         )
  497.         (set nein_antwort
  498.             "No"
  499.         )
  500.         (set hoppla_reader_on_cd
  501.             ("%s%s%s%s"
  502.                 "Oops! You selected a text viewing program that is located on the CD! "
  503.                 "Please note that you will have to insert this CD in the future every time "
  504.                 "you want to read a text that is in the drawer which you want to copy now! "
  505.                 "Optional you can abort the installation process now."
  506.             )
  507.         )
  508.         (set hoppla_viewer_on_cd
  509.             ("%s%s%s%s"
  510.                 "Oops! You selected a picture viewing program that is located on the CD! "
  511.                 "Please note that you will have to insert this CD in the future every time "
  512.                 "you want to view a picture that is in the drawer which you want to copy now! "
  513.                 "Optional you can abort the installation process now."
  514.             )
  515.         )
  516.         (set choose_dir_to_copy_from
  517.             "Please select a drawer that you want to copy from the CD onto your hard disk!"
  518.         )
  519.         (set choose_dir_to_copy_to
  520.             "Please select a drawer of your hard disk that you want to copy the selected drawer of the CD to!"
  521.         )
  522.         (set ready_to_copy
  523.             "Are you ready to copy the drawer \"%s\" into the drawer \"%s\" on your hard disk?"
  524.         )
  525.         (set ready_to_copy_help
  526.             "In the drawer \"%s\" will be created a new \"%s\" named drawer!"
  527.         )
  528.         (set ready_to_copy_1
  529.             "Are you ready to copy the drawer \""
  530.         )
  531.         (set ready_to_copy_2
  532.             "\" into the drawer \""
  533.         )
  534.         (set ready_to_copy_3
  535.             "\" now?"
  536.         )
  537.         (set replacing_defaulttools
  538.             "Some defaulttools - if available - are adjusted just now!"
  539.         )
  540.         (set restoring_flags
  541.             "The original protectionflags and comments, that were lost on the CD, are restored at this very moment!"
  542.         )
  543.         (set copy_more_dirs
  544.             "Copy some more drawers?"
  545.         )
  546.         (set copy_more_dirs_help
  547.             "If you want to copy more drawers then select \"Yes\" now, otherwise \"No\""
  548.         )
  549.         (set save_display_programs
  550.             "Do you want the viewer programs to be installed permanent, so they will even survive a reset?"
  551.         )
  552.         (set save_display_programs_help
  553.             ("%s%s%s"
  554.                 "Selecting \"Yes\" now will install the viewer programs in the form of Assigns "
  555.                 "into your S:user-startup file. If the programs you selected are located on this CD "
  556.                 "I do not recommend this procedure to you!"
  557.             )
  558.         )
  559.         (set add_assigns_to_userstartup
  560.             ("%s%s%s%s"
  561.                 "The Assigns will be added to the end of the file \"S:user-startup\" so "
  562.                 "you don't have to start the Installer over and over again every time you "
  563.                 "want to use this CD in the future. If you do not want this to happen, then "
  564.                 "this is the last chance to skip this process by selecting the right gadget."
  565.             )
  566.         )
  567.         (set add_assigns_to_userstartup_help
  568.             ("%s%s"
  569.                 "The following Assigns will be added: "
  570.                 (if (>= osversion 37)
  571.                     ("Assign MP_READER: %s DEFER\nAssign MP_VIEWER: %s DEFER" mp_reader mp_viewer)
  572.                     ("Assign MP_READER: %s\nAssign MP_VIEWER: %s" mp_reader mp_viewer)
  573.                 )
  574.             )
  575.         )
  576.         (set wanna_copy_to_envarc
  577.             ("%s%s%s"
  578.                 "Do you want to copy some enviroment variables to the ENVARC: drawer? "
  579.                 "This install script makes use of these variables and will work "
  580.                 "more comfortably when they exist."
  581.             )
  582.         )
  583.         (set wanna_copy_to_envarc_help
  584.             ("%s%s%s%s%s"
  585.                 "If you choose not to copy the enviroment variables then this install "
  586.                 "script will not remember your previous decisions after the next "
  587.                 "reset and will therefore not be able to declare these decisions as "
  588.                 "defaults. On the other hand the copying will slow down the startup "
  589.                 "process a teeny-weeny bit..."
  590.             )
  591.         )
  592.         (set activate_more_assigns
  593.             ("%s%s%s%s"
  594.                 "Shall some additional Assigns be activated, to make some of the programs "
  595.                 "on this CD ready for instant startup? (These Assigns will not be installed "
  596.                 "in the s:user-startup file - so after the next reset everything will be back "
  597.                 "as normal!)"
  598.             )
  599.         )
  600.         (set activate_more_assigns_help
  601.             ("%s%s"
  602.                 "I suppose the selection of \"Yes\" - nothing will be broken in your system and "
  603.                 "everything returns to its original state after the next reset!"
  604.             )
  605.         )
  606.     )
  607. )
  608. ;(if (patmatch langstring "Français")
  609. ;    (abort "Français n'est pas encore traduiré, je regrette!")
  610. ;)
  611.  
  612. (if (= 0 (exists (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More"))))
  613.     (abort no_std_textreader)
  614. )
  615.  
  616. (if (= 0 (exists (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT"))))
  617.     (abort no_std_pictureviewer)
  618. )
  619.  
  620. (if (<= osversion 34)
  621.     (if (= 0 @user-level)
  622.         (
  623.             (user 1)
  624.             (message
  625.                 warning_old_os
  626.                 (help warning_old_os_help_1 warning_old_os_help_2)
  627.             )
  628.             (user 0)
  629.         )
  630.         (message
  631.             warning_old_os
  632.             (help warning_old_os_help_1 warning_old_os_help_2)
  633.         )
  634.     )
  635. )
  636.  
  637. (if (AND (= 2 (exists "ENV:" (noreq))) (= 0 (exists "ENV:MeetingPearls" (noreq))))
  638.     (makedir "ENV:MeetingPearls")
  639. )
  640.  
  641. (message
  642.     intro_msg
  643.     (help intro_help_1 intro_help_2 intro_help_3 intro_help_4 intro_help_5)
  644. )
  645.  
  646. (if (exists "ENV:MeetingPearls/MP1_READER_CHOICE" (noreq))
  647.     (
  648.         (set envvar (getenv "MeetingPearls/MP1_READER_CHOICE"))
  649.         (set envvar (+ envvar 0))
  650.     )
  651.     (set envvar 100)
  652. )
  653. (if (AND (>= envvar 0) (<= envvar 7))
  654.     (set reader_default (+ envvar 0))
  655.     (set reader_default (if (>= osversion 39) 1 (if (>= osversion 37) 0 2)))
  656. )
  657.  
  658. (set readchoice
  659.     (askchoice
  660.         (prompt choose_textreader_msg)
  661.         (help choose_textreader_msg_help @askchoice-help)
  662.         (choices
  663.             (if (= 1 (exists (expandpath ":C/MuchMore")))    "MP_Vol1:C/MuchMore"        "(MP_Vol1:C/MuchMore)")
  664.             (if (= 1 (exists "SYS:Utilities/MultiView"))    "SYS:Utilities/MultiView"    "(SYS:Utilities/MultiView)")
  665.             (if (= 1 (exists "SYS:Utilities/More"))        "SYS:Utilities/More"        "(SYS:Utilities/More)")
  666.             (if (= 1 (exists "C:MuchMore"))            "C:MuchMore"            "(C:MuchMore)")
  667.             (if (= 1 (exists "C:Ed"))            "C:Ed"                "(C:Ed)")
  668.             (if (= 1 (exists "C:TTX"))            "C:TTX"                "(C:TTX)")
  669.             (if (= 1 (exists "C:less"))            "C:less"            "(C:less)")
  670.             others_msg
  671.         )
  672.         (default reader_default)
  673.     )
  674. )
  675.  
  676. (run ("SetEnv MeetingPearls/MP1_READER_CHOICE %ld" (+ readchoice 0)))
  677.  
  678. (if (= readchoice 0)
  679.     (set mp_reader
  680.         (if (= 1 (exists (expandpath ":C/MuchMore"))) (expandpath ":C/MuchMore") (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  681.     )
  682. )
  683.  
  684. (if (= readchoice 1)
  685.     (set mp_reader
  686.         (if (= 1 (exists "SYS:Utilities/MultiView")) "SYS:Utilities/MultiView" (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  687.     )
  688. )
  689.  
  690. (if (= readchoice 2)
  691.     (set mp_reader
  692.         (if (= 1 (exists "SYS:Utilities/More")) "SYS:Utilities/More" (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  693.     )
  694. )
  695.  
  696. (if (= readchoice 3)
  697.     (set mp_reader
  698.         (if (= 1 (exists "C:MuchMore")) "C:MuchMore" (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  699.     )
  700. )
  701.  
  702. (if (= readchoice 4)
  703.     (set mp_reader
  704.         (if (= 1 (exists "C:Ed")) "C:Ed" (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  705.     )
  706. )
  707.  
  708. (if (= readchoice 5)
  709.     (set mp_reader
  710.         (if (= 1 (exists "C:TTX")) "C:TTX" (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  711.     )
  712. )
  713.  
  714. (if (= readchoice 6)
  715.     (set mp_reader
  716.         (if (= 1 (exists "C:less")) "C:less" (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  717.     )
  718. )
  719.  
  720. (if (= readchoice 7)
  721.     (
  722.         (if (exists "ENV:MeetingPearls/MP1_READER_PRG")
  723.             (set readerprg_default (getenv "MeetingPearls/MP1_READER_PRG"))
  724.             (set readerprg_default (if (>= osversion 39) "SYS:Utilities/MultiView" (if (>= osversion 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  725.         )
  726.  
  727.         (set mp_reader
  728.             (askfile
  729.                 (prompt pick_textreader_per_filereq)
  730.                 (help @askfile-help)
  731.                 (default readerprg_default)
  732.             )
  733.         )
  734.         (run ("SetEnv MeetingPearls/MP1_READER_PRG \"%s\"" mp_reader))
  735.     )
  736. )
  737.  
  738. (run ("Assign MP_READER: \"%s\"" mp_reader))
  739.  
  740. (if (exists "ENV:MeetingPearls/MP1_VIEWER_CHOICE")
  741.     (
  742.         (set envvar (getenv "MeetingPearls/MP1_VIEWER_CHOICE"))
  743.         (set envvar (+ envvar 0))
  744.     )
  745.     (set envvar 100)
  746. )
  747. (if (AND (>= envvar 0) (<= envvar 11))
  748.     (set viewer_default (+ envvar 0))
  749.     (set viewer_default 0)
  750. )
  751.  
  752. (set viewchoice
  753.     (askchoice
  754.         (prompt choose_picviewer_msg)
  755.         (help choose_picviewer_msg_help @askchoice-help)
  756.         (choices
  757.             (if (= 1 (exists (expandpath ":C/VT")))        "MP_Vol1:C/VT"            "(MP_Vol1:C/VT)")
  758.             (if (= 1 (exists "SYS:Utilities/MultiView"))    "SYS:Utilities/MultiView"    "(SYS:Utilities/MultiView)")
  759.             (if (= 1 (exists (expandpath ":C/VT_FC24")))    "MP_Vol1:C/VT_FC24"        "(MP_Vol1:C/VT_FC24)")
  760.             (if (= 1 (exists (expandpath ":C/VT_IV24")))    "MP_Vol1:C/VT_IV24"        "(MP_Vol1:C/VT_IV24)")
  761.             (if (= 1 (exists (expandpath ":C/VT_Opal")))    "MP_Vol1:C/VT_Opal"        "(MP_Vol1:C/VT_Opal)")
  762.             (if (= 1 (exists (expandpath ":C/VT_Retina")))    "MP_Vol1:C/VT_Retina"        "(MP_Vol1:C/VT_Retina)")
  763.             (if (= 1 (exists (expandpath ":C/VT_Picasso")))    "MP_Vol1:C/VT_Picasso"        "(MP_Vol1:C/VT_Picasso)")
  764.             (if (= 1 (exists "C:Mostra"))            "C:Mostra"            "(C:Mostra)")
  765.             (if (= 1 (exists "C:Show"))            "C:Show"            "(C:Show)")
  766.             (if (= 1 (exists "C:View"))            "C:View"            "(C:View)")
  767.             (if (= 1 (exists "C:PPShow"))            "C:PPShow"            "(C:PPShow)")
  768.             others_msg
  769.         )
  770.         (default viewer_default)
  771.     )
  772. )
  773.  
  774. (run ("SetEnv MeetingPearls/MP1_VIEWER_CHOICE %ld" (+ viewchoice 0)))
  775.  
  776. (if (= viewchoice 0)
  777.     (set mp_viewer
  778.         (if (= 1 (exists (expandpath ":C/VT"))) (expandpath ":C/VT") (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  779.     )
  780. )
  781.  
  782. (if (= viewchoice 1)
  783.     (set mp_viewer
  784.         (if (= 1 (exists "SYS:Utilities/MultiView")) "SYS:Utilities/MultiView" (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  785.     )
  786. )
  787.  
  788. (if (= viewchoice 2)
  789.     (set mp_viewer
  790.         (if (= 1 (exists (expandpath ":C/VT_FC24"))) (expandpath ":C/VT_FC24") (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  791.     )
  792. )
  793.  
  794. (if (= viewchoice 3)
  795.     (set mp_viewer
  796.         (if (= 1 (exists (expandpath ":C/VT_IV24"))) (expandpath ":C/VT_IV24") (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  797.     )
  798. )
  799.  
  800. (if (= viewchoice 4)
  801.     (set mp_viewer
  802.         (if (= 1 (exists (expandpath ":C/VT_Opal"))) (expandpath ":C/VT_Opal") (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  803.     )
  804. )
  805.  
  806. (if (= viewchoice 5)
  807.     (set mp_viewer
  808.         (if (= 1 (exists (expandpath ":C/VT_Retina"))) (expandpath ":C/VT_Retina") (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  809.     )
  810. )
  811.  
  812. (if (= viewchoice 6)
  813.     (set mp_viewer
  814.         (if (= 1 (exists (expandpath ":C/VT_Picasso"))) (expandpath ":C/VT_Picasso") (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  815.     )
  816. )
  817.  
  818. (if (= viewchoice 7)
  819.     (set mp_viewer
  820.         (if (= 1 (exists "C:Mosta")) "C:Mostra" (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  821.     )
  822. )
  823.  
  824. (if (= viewchoice 8)
  825.     (set mp_viewer
  826.         (if (= 1 (exists "C:Show")) "C:Show" (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  827.     )
  828. )
  829.  
  830. (if (= viewchoice 9)
  831.     (set mp_viewer
  832.         (if (= 1 (exists "C:View")) "C:View" (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  833.     )
  834. )
  835.  
  836. (if (= viewchoice 10)
  837.     (set mp_viewer
  838.         (if (= 1 (exists "C:PPShow")) "C:PPShow" (if (>= osversion 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  839.     )
  840. )
  841.  
  842. (if (= viewchoice 11)
  843.     (
  844.         (if (exists "ENV:MeetingPearls/MP1_VIEWER_PRG")
  845.             (set viewerprg_default (getenv "MeetingPearls/MP1_VIEWER_PRG"))
  846.             (set viewerprg_default (expandpath ":C/VT"))
  847.         )
  848.         (set mp_viewer
  849.             (askfile
  850.                 (prompt pick_picviewer_per_filereq)
  851.                 (help @askfile-help)
  852.                 (default viewerprg_default)
  853.             )
  854.         )
  855.         (run ("SetEnv MeetingPearls/MP1_VIEWER_PRG \"%s\"" mp_viewer))
  856.     )
  857. )
  858.  
  859. (run ("Assign MP_VIEWER: \"%s\"" mp_viewer))
  860.  
  861. (set copysomedirs
  862.     (askbool
  863.         (prompt wanna_copy_dirs_to_hd)
  864.         (help wanna_copy_yes_or_no)
  865.         (choices ja_antwort nein_antwort)
  866.         (default 0)
  867.     )
  868. )
  869.  
  870. (if (= copysomedirs 1)
  871.     (
  872.         (if (patmatch (getdevice mp_reader) (getdevice (expandpath ":")))
  873.             (message hoppla_reader_on_cd)
  874.         )
  875.         (if (patmatch (getdevice mp_viewer) (getdevice (expandpath ":")))
  876.             (message hoppla_viewer_on_cd)
  877.         )
  878.  
  879.         (set fromdir (expandpath ":"))
  880.         (set todir @default-dest)
  881.         (set moredirs 1)
  882.         (until (= moredirs 0)
  883.             (set fromdir
  884.                 (askdir
  885.                     (prompt choose_dir_to_copy_from)
  886.                     (help @askdir-help)
  887.                     (default fromdir)
  888.                 )
  889.             )
  890.             (set todir
  891.                 (askdir
  892.                     (prompt choose_dir_to_copy_to)
  893.                     (help @askdir-help)
  894.                     (default todir)
  895.                 )
  896.             )
  897.             (set imsure
  898.                 (askbool
  899.                     (prompt (ready_to_copy (expandpath fromdir) (expandpath todir)))
  900.                     (help (ready_to_copy_help (expandpath todir) (fileonly fromdir)))
  901.                     (choices ja_antwort nein_antwort)
  902.                     (default 1)
  903.                 )
  904.             )
  905.             (if (= imsure 1)
  906.                 (
  907.                     (set @default-dest todir)
  908.                     (set newdir (tackon todir (fileonly fromdir)))
  909.                     (makedir newdir)
  910.                     (if (exists (cat fromdir ".info"))
  911.                         (
  912.                             (run ("copy \"%s\" TO \"%s\"" (cat fromdir ".info") (cat newdir ".info")))
  913.                             (tooltype
  914.                                 (dest newdir)
  915.                                 (noposition)
  916.                             )
  917.                         )
  918.                     )
  919.                     (copyfiles
  920.                         (prompt ready_to_copy_1 fromdir ready_to_copy_2 todir ready_to_copy_3)
  921.                         (source fromdir)
  922.                         (dest newdir)
  923.                         (all)
  924.                         (infos)
  925.                         (delopts fail)
  926.                         (optional nofail force)
  927.                     )
  928.                     (working replacing_defaulttools)
  929.                     (run ("\"%s\" replace_mp \"%s\" recursive \"%s\" \"%s\"" (expandpath ":C/icontools") newdir mp_reader mp_viewer))
  930.                     (if (>= osversion 37)    ; Unter 1.3 kamen Requester wie 'please insert volume "CD1 in any drive' :-(
  931.                         (
  932.                             (working restoring_flags)
  933.                             (set oldexecutedir @execute-dir)
  934.                             (set @execute-dir newdir)
  935.                             (execute
  936.                                 ("\"%s%s%s%s\" \"%s%s%s\""
  937.                                     (getdevice fromdir)
  938.                                     ":SetAttributesDir/"
  939.                                     (substr (expandpath fromdir) (strlen (expandpath (cat (getdevice (fromdir)) ":"))))
  940.                                     "/SetAttributes"
  941.                                     (getdevice fromdir)
  942.                                     ":SetAttributesDir/"
  943.                                     (substr (expandpath fromdir) (strlen (expandpath (cat (getdevice (fromdir)) ":"))))
  944.                                 )
  945.                             )
  946.                             (set @execute-dir oldexecutedir)
  947.                         )
  948.                     )
  949.                 )
  950.             )
  951.             (set moredirs
  952.                 (askbool
  953.                     (prompt copy_more_dirs)
  954.                     (help copy_more_dirs_help)
  955.                     (choices ja_antwort nein_antwort)
  956.                     (default 0)
  957.                 )
  958.             )
  959.         )
  960.     )
  961.     (set @default-dest "")
  962. )
  963.  
  964. (if (>= osversion 37)    ; Was will ich unter 1.3 mit einer User-Startup? :-(
  965.     (
  966.         (set adduserstartup
  967.             (askbool
  968.                 (prompt save_display_programs)
  969.                 (help save_display_programs_help)
  970.                 (choices ja_antwort nein_antwort)
  971.                 (default 0)
  972.             )
  973.         )
  974.         (if (= 1 adduserstartup)
  975.             (startup
  976.                 "Meeting Pearls Volume 1"
  977.                 (prompt add_assigns_to_userstartup)
  978.                 (help add_assigns_to_userstartup_help)
  979.                 (command
  980.                     (if (>= osversion 37)    ; Diese Abfrage kann irgendwann mal raus, da das hier eh nur bei >=2.04 aufgerufen wird
  981.                         ("Assign MP_READER: %s DEFER\nAssign MP_VIEWER: %s DEFER" mp_reader mp_viewer)
  982.                         ("Assign MP_READER: %s\nAssign MP_VIEWER: %s" mp_reader mp_viewer)
  983.                     )
  984.                 )
  985.             )
  986.         )
  987.     )
  988. )
  989.  
  990. (if (AND (exists "ENV:" (noreq)) (exists "ENVARC:" (noreq)))
  991.     (
  992.         (set copyenvarc
  993.             (askbool
  994.                 (prompt wanna_copy_to_envarc)
  995.                 (help wanna_copy_to_envarc_help)
  996.                 (choices ja_antwort nein_antwort)
  997.                 (default 0)
  998.             )
  999.         )
  1000.         (if (= 1 copyenvarc)
  1001.             (copyfiles
  1002.                 (source "ENV:MeetingPearls")
  1003.                 (dest "ENVARC:MeetingPearls")
  1004.                 (all)
  1005.                 (delopts fail)
  1006.                 (optional nofail force)
  1007.             )
  1008.         )
  1009.     )
  1010. )
  1011.  
  1012. (if (NOT (exists "MeetingPearls1:" (noreq)))
  1013.     (
  1014.         (set startscript
  1015.             (askbool
  1016.                 (prompt activate_more_assigns)
  1017.                 (help activate_more_assigns_help)
  1018.                 (choices ja_antwort nein_antwort)
  1019.                 (default 1)
  1020.             )
  1021.         )
  1022.     )
  1023. )
  1024.  
  1025. (if (= 1 startscript)
  1026.     (
  1027.         (execute ":S/Meeting-Startup")
  1028.     )
  1029. )
  1030.